home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 72 / af072a.adf / pegger.LZX / Install PEGGER < prev    next >
Text File  |  1994-08-29  |  4KB  |  177 lines
  1. ; Install PEGGER 
  2.  
  3. (set @default-dest "T:")
  4.  
  5. (transcript "Installing PEGGER Libraries")
  6. (working "Installing PEGGER Libraries" )
  7.  
  8. (copylib
  9.     (transcript "copylib")
  10.     (prompt "Installing the pegger.library.")
  11.     (help @copylib-help)
  12.     (source "Libs/pegger.library")
  13.     (dest "LIBS:")
  14.     (confirm)
  15. )
  16.  
  17. (copylib
  18.     (transcript "copylib")
  19.     (prompt "Installing the peggersnoop.library.")
  20.     (help @copylib-help)
  21.     (source "Libs/peggersnoop.library")
  22.     (dest "LIBS:")
  23.     (confirm)
  24. )
  25.  
  26. (copylib
  27.     (transcript "copylib")
  28.     (prompt "Installing the dctv.library.")
  29.     (help @copylib-help)
  30.     (source "Libs/dctv.library")
  31.     (dest "LIBS:")
  32.     (confirm)
  33. )
  34.  
  35. (transcript "Getting Location of PEGGER Directory")
  36.  
  37. (set pegger_dir "Work:")
  38.  
  39. (if (NOT (exists pegger_dir (noreq)))
  40.     (set pegger_dir "Sys:")
  41. )
  42.  
  43. (set pegger_dir
  44.     (askdir
  45.         (prompt
  46.         "PEGGER requires 800K of free space on your disk. "
  47.         "Where would you like PEGGER's directory installed?")
  48.         (help @askdir-help)
  49.         (default pegger_dir)
  50.     )
  51. )
  52.  
  53. (if (NOT (exists (tackon pegger_dir "PEGGER")(noreq)))
  54.     (
  55.     (copyfiles
  56.         (source "PEGGER_DEMO:PEGGER.info")
  57.         (dest pegger_dir))
  58.     (tooltype
  59.         (dest (tackon pegger_dir "PEGGER"))
  60.         (noposition))
  61.     (makedir (tackon pegger_dir "PEGGER"))
  62.     )
  63. )
  64.  
  65. (set pegger_dir (tackon pegger_dir "PEGGER"))
  66.  
  67. (set @default-dest pegger_dir)
  68.  
  69. (transcript "Installing PEGGER Program")
  70.  
  71. (copyfiles
  72.     (prompt "Installing PEGGER program.")
  73.     (help @copyfiles-help)
  74.     (source "PEGGER_DEMO:PEGGER/PEGGER")
  75.     (infos)
  76.     (dest pegger_dir)
  77. )
  78.  
  79. (transcript "Installing PEGGER ReadMe Files")
  80. (copyfiles
  81.     (prompt "Installing Pegger ReadMe Files.")
  82.     (help @copyfiles-help)
  83.     (source "PEGGER_DEMO:PEGGER_Demo_Doc")
  84.     (infos)
  85.     (dest pegger_dir)
  86. )
  87.  
  88. (transcript "Installing PEGGER data files.")
  89.  
  90. (working "Installing PEGGER Data Files" )
  91.  
  92. (set dataok
  93.     (run (cat "PEGGER_DEMO:c/PeggerCreate " (cat "\"" pegger_dir "\"")) )
  94. )
  95.  
  96. (if (= dataok 0)
  97.     ((set dataok
  98.         (askbool
  99.             (prompt "Could not install all of PEGGER's data files."
  100.             " Proceed with PEGGER installation?")
  101.             (help)
  102.             (choices "Proceed" "Cancel")
  103.         )
  104.     )
  105.     (if (= dataok 1)
  106.         (transcript "PEGGER Installation Aborted")
  107.         (exit "PEGGER Installation Aborted")
  108.     ))
  109. )
  110.  
  111.     (transcript "Installing PEGGER ARexx scripts.")
  112.  
  113.     (if (NOT (exists (tackon pegger_dir "Rexx") (noreq)))
  114.         (
  115.         (copyfiles
  116.             (source "PEGGER_DEMO:Pegger/Rexx.info")
  117.             (dest pegger_dir))
  118.         (makedir (tackon pegger_dir "Rexx"))
  119.         )
  120.     )
  121.  
  122.     (copyfiles
  123.         (prompt "Installing PEGGER ARexx scripts.")
  124.         (help @copyfiles-help)
  125.         (source "PEGGER_DEMO:Pegger/Rexx")
  126.         (all)
  127.         (infos)
  128.         (dest (tackon pegger_dir "Rexx"))
  129.     )
  130.  
  131.     (transcript "Installing PEGGER Tutorial JPEG files.")
  132.  
  133.     (if (NOT (exists (tackon pegger_dir "TutorialFiles") (noreq)))
  134.         (
  135.         (copyfiles
  136.             (source "PEGGER_DEMO:Pegger/TutorialFiles.info")
  137.             (dest pegger_dir))
  138.         (makedir (tackon pegger_dir "TutorialFiles"))
  139.         )
  140.     )
  141.  
  142.     (copyfiles
  143.         (prompt "Installing PEGGER Tutorial JPEG files.")
  144.         (help @copyfiles-help)
  145.         (source "PEGGER_DEMO:Pegger/TutorialFiles")
  146.         (all)
  147.         (infos)
  148.         (dest (tackon pegger_dir "TutorialFiles"))
  149.     )
  150.  
  151.     (if (NOT (exists (tackon pegger_dir "Images") (noreq)))
  152.         (
  153.         (copyfiles
  154.             (source "PEGGER_DEMO:Pegger/Images.info")
  155.             (dest pegger_dir))
  156.         (makedir (tackon pegger_dir "Images"))
  157.         )
  158.     )
  159.  
  160.     (if (NOT (exists (tackon pegger_dir "JPEGs") (noreq)))
  161.         (
  162.         (copyfiles
  163.             (source "PEGGER_DEMO:Pegger/JPEGs.info")
  164.             (dest pegger_dir))
  165.         (makedir (tackon pegger_dir "JPEGs"))
  166.         )
  167.     )
  168.  
  169. (tooltype
  170.     (dest (tackon pegger_dir "PEGGER"))
  171.     (settooltype "PEGGER_DIR" (cat "\"" pegger_dir "\""))
  172.     (settooltype "BACKUP_TEMP_DIR" (cat "\"" pegger_dir "\""))
  173. )
  174.  
  175. (transcript "Installation Completed")
  176. (exit "PEGGER Demo installation completed")
  177.